home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 2.0 - Programmer's Utilities Power Pack
/
Delphi 2.0 Programmer's Utilities Power Pack.iso
/
e_to_l
/
fccopy
/
fcopy.dpr
next >
Wrap
Text File
|
1996-09-15
|
6KB
|
100 lines
{$A+,B-,D-,F-,G+,I-,K-,L-,N+,P+,Q-,R-,S-,T-,V-,W-,X+,Y-}
{$M 8192,8192}
{FIXED PRELOAD PERMANENT}
(*********************************************************************)
(*********************************************************************)
(** FCTEST.PAS - Test unit for the TASP Development Delphi ***********)
(** (tnx Borland!!!) File Copy Component. ****************************)
(*********************************************************************)
(*********************************************************************)
(* *******)
(* The TASP Filecopy Component is a product of: *******)
(* *******)
(* Daniel J. Karnes *******)
(* 9942 W. Broadway Suite 209 *******)
(* Anaheim, CA 92804 *******)
(* *******)
(* Email: TASP@TASP.NET or TASPEngr@AOL.COM *******)
(* *******)
(* FCTEST and FILECOPY are distributed as try-before-you-buy *******)
(* SHAREWARE. Registration is expected if you continue using *******)
(* this TASP Development product beyond a free 7 days period *******)
(* of evaluation. Please support SHAREWARE and we'll all win! *******)
(* *******)
(* REGISTRATION FEES: *******)
(* *******)
(* $15.00 - Single user. NON COMMERCIAL. *******)
(* *******)
(* $27.00 - Shareware author's license. *******)
(* *******)
(* $79.00 - Commercial license. *******)
(* *******)
(* All others must email for a quote before using. *******)
(* *******)
(* Please register today! You'll get a laser printed manual *******)
(* and reference along with a registered copy of the product *******)
(* (no nagware notice and more features & speed!) on disk or *******)
(* via email if you specify. *******)
(* *******)
(* Send registrations to: *******)
(* *******)
(* Daniel J. Karnes *******)
(* 9942 W. Broadway Suite 209 *******)
(* Anaheim, CA 92804 *******)
(* *******)
(* *** IF EVERYONE SUPPORTS SHAREWARE WE'LL ALL MAKE OUT!! *** *******)
(* *******)
(******* *******)
(******* DISCLAIMER AND COPYRIGHT NOTICE *******)
(******* *******)
(* *******)
(* Using this example program or any other part of this *******)
(* software is agreeing to not holding the author thereof to *******)
(* any form of warranty or guarantee whether expressed or *******)
(* implied. Continuing to use this example program or any *******)
(* part of the accompanying software is also agreement that *******)
(* compiling and or implementing any part of this program is *******)
(* an action that any user will be undertaking at the users *******)
(* own personal risk and liability. *******)
(* *******)
(* Any user of this example program or any other part of this *******)
(* original distribution is expressely agreeing to all terms *******)
(* and conditions stated by the author if the user implements *******)
(* any part of this software in any way. *******)
(* *******)
(* WHEW! And my attorney even likes it! ;) I just hope that *******)
(* *you* like the software! *******)
(* *******)
(* Let me know if you like it. (the SOFTWARE!) Think it sucks *******)
(* Or want more! *******)
(* *******)
(* djk@TASP.NET / TASP@TASP.NET / TASPEngr@AOL.COM *******)
(* *******)
(* Send registrations to: *******)
(* *******)
(* Daniel J. Karnes *******)
(* 9942 W. Broadway Suite 209 *******)
(* Anaheim, CA 92804 *******)
(* *******)
(* Of course comments and suggestions are solicited! *******)
(* *******)
(*********************************************************************)
(*********************************************************************)
(*********************************************************************)
(*********************************************************************)
Program Fcopy;
USES
Forms,
Fctest in 'FCTEST.PAS' {TestProgram};
{$R *.RES}
BEGIN
Application.CreateForm(TTestProgram, TestProgram);
Application.Run;
END.